<%

Function ranking_rodadas_estatisticas(conexao, id_rodada)

		str = "Select id FROM clubes"
    	Set rs = conexao.Execute(str)
		
		DIM pontos, id_clube
		
		Do while not rs.eof
		
			id_clube = rs("id")
		
			pontos = ranking_rodadas_clube_pontos(conexao, id_rodada, id_clube, jogs)
			
			str = "INSERT into clubes_rodadas "
			str = str & "(id_rodada, id_clube, pontos, jogadores) "
			str = str & "VALUES ('" & id_rodada &"', "
			str = str & "'" & id_clube & "', "
			str = str & "'" & pontos & "', "
			str = str & "'" & jogs & "')"						
			Set rsI = conexao.Execute(str)			
		
		rs.MoveNext
		Loop


		

End Function

Function ranking_rodadas_clube_pontos(conexao, id_rodada, id_clube, ByRef jogs)

		DIM jogadores(4), i, pontos
		
		pontos=0

		clubes_jogadores_titulares id_clube, jogadores	
		
		jogs=""
		
		for i=0 to 4
		
			if jogadores(i)>0 then
			
				jogs=jogs&"/"&jogadores(i)
				pontos = pontos + apostas_get_pontuacao_rodada(id_rodada, jogadores(i))
				
			End If
		
		
		next
		
		ranking_rodadas_clube_pontos = pontos
		

End Function
%>
